home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / odosrc / odometer.bas < prev    next >
Encoding:
BASIC Source File  |  1995-05-09  |  986 b   |  32 lines
  1. Global CounterFlag As Integer
  2.  
  3. '   GetFreeSystemResources
  4. Declare Function GetFreeSystemResources Lib "User" (ByVal fuSysResource As Integer) As Integer
  5. Global Const GFSR_SYSTEMRESOURCES = &H0
  6. Global Const GFSR_GDIRESOURCES = &H1
  7. Global Const GFSR_USERRESOURCES = &H2
  8.  
  9. Global SysReSrc As Single
  10. Global GdiReSrc As Single
  11. Global UserReSrc As Single
  12.  
  13. '   memory
  14. Declare Function GetFreeSpace Lib "Kernel" (ByVal wFlags As Integer) As Long
  15. Global Const GMEM_FIXED = &H0
  16. Global Const GMEM_MOVEABLE = &H2
  17.  
  18. '   for disk info
  19. Declare Function DiskInfo& Lib "DISKINFO.DLL" (ByVal DriveNum As Integer, ByVal InfoType As Integer)
  20.  
  21. '    for on top
  22. Declare Sub SetWindowPos Lib "User" (ByVal Wnd%, ByVal WndInsertAfter%, ByVal X%, ByVal Y%, ByVal cx%, ByVal cy%, ByVal Flags%)
  23. Global Const HWND_TOPMOST = -1
  24. Global Const HWND_NOTOPMOST = -2
  25.  
  26. Global Const MF_BYPOSITION = &H400
  27. Global Const APP_Resource = "Resource", KEY_ONTOP = "OnTop"
  28. Global Const WS_NORMAL = 0
  29.  
  30.  
  31.  
  32.